﻿Public Class DungeonTheme

    'flags
    Public NoWeapons As Boolean
    Public NoArmor As Boolean
    Public SpecialObjectiveRoomMonsters As Boolean
    Public ObjectiveRoomExitAvailable As Boolean
    Public AfterMonsterClearTaskInObjectiveRoom As Boolean
    Public UnexpectedEventTriggersSpecialEvent As Boolean
    Public FirstDungeonRoomSpecialEvent As Boolean
    Public StartWithSuperBrew As Boolean
    Public StartWithSwordOfTrueKingship As Boolean
    Public StartWithBanishSwords As Boolean
    Public StartWithSwordOfDeathking As Boolean
    Public StartWithShardOfGlass As Boolean
    Public ObjectiveRoomTimeLimit As Boolean
    Public StartOfQuestEvent As Boolean
    Public InstantDeathCondition As Boolean
    Public SuppressEventsAfterObjectiveRoom As Boolean
    Public PrePowerPhaseCheck As Boolean

    Public TurnsToClearObjectiveRoom As Short

    Public DungeonRewardEachGainTreasure As Boolean
    Public DungeonRewardBarbariansFathersSword As Boolean
    Public DungeonRewardGoldEach As Boolean
    Public DungeonRewardDiceGoldEach As Short(,) 'x = number of dice, y = gold per pips
    Public DungeonRewardUniqueGold As Short

    Public ObjectiveRoom As eObjectiveRoom
    Public ThemeNumber As Short
    Public ThemeName As String
    Public ThemeText As String

    Public DeckManager As DungeonDeckManager

    Private ReadOnly _shortTab As String = "    "

    Public Enum eObjectiveRoom
        none
        FightingPit
        FireChasm
        FountainOfLight
        TombChamber
        IdolChamber
    End Enum

    Public Sub New()

        Dim roll As Short = 6

        While roll = 6
            roll = AppConstants.D6Roll()
        End While

        ObjectiveRoom = roll

        Select Case ObjectiveRoom

            Case eObjectiveRoom.FightingPit
                SetFightingPitThemeSpecifics()

            Case eObjectiveRoom.FireChasm
                SetFireChasmThemeSpecifics()

            Case eObjectiveRoom.FountainOfLight
                SetFountainOfLightThemeSpecifics()

            Case eObjectiveRoom.TombChamber
                SetTombChamberThemeSpecifics()

            Case eObjectiveRoom.IdolChamber
                SetIdolChamberThemeSpecifics()

        End Select

        'set up our deck to explore
        DeckManager = New DungeonDeckManager()
        DeckManager.CreateDungeonDecks(roll)

    End Sub

    Private Sub SetFightingPitThemeSpecifics()

        Dim roll As Short = AppConstants.D6Roll

        Select Case roll

            Case 1
                ThemeName = "The Beast"
                NoWeapons = True
                NoArmor = True
                DungeonRewardEachGainTreasure = True
                SpecialObjectiveRoomMonsters = True
                ObjectiveRoomExitAvailable = True

                ThemeText = String.Format("{0}Captured by the Goblin Warlord Ugrul Headsticka while exploring the ruins of Karak Azgal, the Warriors have been given a chance to escape and, in the process, provide entertainment for the Goblins. The Warriors must fight their way to freedom without weapons or armour! And as if that were not enough, their only way out is through the Minotaurs’ lair.", _shortTab)

            Case 2
                ThemeName = "Sword of Power"
                DungeonRewardBarbariansFathersSword = True
                SpecialObjectiveRoomMonsters = True
                ObjectiveRoomExitAvailable = True

                ThemeText = String.Format("{0}The last Warrior to brave the perils of the fighting pit took a sword of great power to help him slay the Minotaur that dwelt within it. However, despite the sword he was destroyed by the Minotaur and his body eaten.{1}{0}The sword now lies rusting at the bottom of the pit. The sword in question was an ancient heirloom stolen from the Barbarian’s father many years ago, and the Barbarian has sworn to get it back. He must therefore descend into the dungeon and kill the Minotaur himself. The other Warriors may accompany him, but it must be the Barbarian who slays the beast and retrieves the sword.", _shortTab, vbNewLine)

            Case 3
                ThemeName = "Hell's Gate"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardEachGainTreasure = True

                ThemeText = String.Format("{0}In the dungeons below Karak Azgal, a gate has been opened by evil sorcery. The gate leads to the plains of the Dark Lands, and monsters are continually spewing out of its black depths into the bowels of Karak Azgal. The more Monsters that gather in the depths of the ruined Dwarf city, the greater the threat to the Old World, so a party of brave Warriors must venture into the city and seal the gate.", _shortTab)

            Case 4
                ThemeName = "Blood Debt"
                SpecialObjectiveRoomMonsters = True
                ObjectiveRoomExitAvailable = True

                ThemeText = String.Format("{0}The Warriors must repay a debt that they incurred in an earlier adventure. The Wizard Vestigkalass rescued them from certain death in the dungeons below Crookback Mountain some months ago, in exchange for 10 years of their memories, which he has stored in a cursed mirror.{1}{0}The only way the Warriors can regain those memories is to pay him 2,000 gold, or kill the pets of his arch rival, the evil Sorcerer Grachnach. The only problems for the Warriors are that they don’t have 2,000 gold with which to pay the ransom, and that Grachnach’s ‘pets’ are two blood-crazed Minotaurs...{1}{0}Grachnach lives in a carefully concealed labyrinth close to MadDog Pass, and is away on some evil errand at the moment. Now is the time for the Warriors to strike!", _shortTab, vbNewLine)

            Case 5
                ThemeName = "Maneater"
                SpecialObjectiveRoomMonsters = True
                DungeonRewardEachGainTreasure = 10

                ThemeText = String.Format("{0}In the Drak Wald Forest of the Empire there are rumours circulating of a man-eating monster that is raiding nearby villages and eating the inhabitants. According to the story, the monster is a great Minotaur, but no-one has actually seen the beast and lived to tell the tale. The villagers are so worried that they are staying indoors and doing no work. The local sheriffs, therefore, have intervened to solve the problem once and for all. They have located the entrance to a cave system, deep in the gloomy forest, and have employed the Warriors to kill the beast that lives within.{1}{0}However, it isn’t certain that the monster is a Minotaur at all, as the villagers are renowned for scaremongering...", _shortTab, vbNewLine)

            Case 6
                ThemeName = "Free the Prisoners"
                SpecialObjectiveRoomMonsters = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 20}}
                ObjectiveRoomExitAvailable = True

                ThemeText = String.Format("{0}During a recent raid on Miragliano, the Skaven took around twenty wealthy and influential citizens as captives, and have been making all manner of unreasonable and outrageous threats ever since.{1}{0}The Skaven know full well that their unconditional demands to hand over all the wealth, women and children of the city will never be agreed to, but it gives them a good excuse to send back portions of their victims as proof that they mean business.{1}{0}The Warriors have been employed to enter the Blighted Marshes and rescue the prisoners from the dungeons of the Chaos ratmen.", _shortTab, vbNewLine)

        End Select

        ThemeNumber = roll

    End Sub

    Private Sub SetFireChasmThemeSpecifics()

        Dim roll As Short = AppConstants.D6Roll

        Select roll

            Case 1
                ThemeName = "Destroy the Warpstone Icon"
                FirstDungeonRoomSpecialEvent = True
                AfterMonsterClearTaskInObjectiveRoom = True
                TurnsToClearObjectiveRoom = 2
                DungeonRewardDiceGoldEach = New Short(,) {{1, 100}}
                ObjectiveRoomExitAvailable = True
                InstantDeathCondition = True

                ThemeText = String.Format("{0}Rumours abound of a powerful long-lost Skaven artefact that has been rediscovered in the Worlds Edge Mountains. The artefact is a skull-shaped icon made from raw warpstone, and its mutating powers are said to be beyond imagination. The icon must be destroyed at all costs to stop the Skaven reclaiming it. Unfortunately, the only way to destroy the icon is to hurl it into the cleansing flames of the firechasm.", _shortTab)

            Case 2
                ThemeName = "Banish the Daemon"
                StartWithBanishSwords = True
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 100}}
                ObjectiveRoomExitAvailable = True
                InstantDeathCondition = True

                ThemeText = String.Format("{0}The great Wizards of the Empire have scried out a powerful, brooding power that is growing below the ancient Dwarf hold of Karak Azgal. As yet, they believe the presence to be relatively weak, and therefore probably bound to some material artefact such as a statue while it gathers strength.{1}{0}Although they do not know its purpose, they suspect that it may be a lesser daemon of the Chaos Powers, trapped in the rocks below the earth in ages past, and freed by the incessant digging of the Goblins and Orcs as they search for the lost treasure of the Dwarfs who once inhabited the city. The truth is that the daemon has escaped the prison of rock that held it for so long, and is now resident in a statue of a great fire dragon in an ancient temple (the firechasm). Soon it will fully awaken, and walk the world once more. The Wizards have employed the Warriors to destroy the daemon and ensure that this never happens.", _shortTab, vbNewLine)

            Case 3
                ThemeName = "Extinguish the Flames"
                AfterMonsterClearTaskInObjectiveRoom = True
                ObjectiveRoomExitAvailable = True
                DungeonRewardEachGainTreasure = True
                InstantDeathCondition = True

                ThemeText = String.Format("{0}Below the lost Dwarf stronghold of Karak Vlag, the ancient forge fires still burn. Now occupied by evil creatures, the flames’ magical energies are being used to create chaotic and cursed weapons. The forges must be extinguished before their new masters learn how to manufacture weapons of even more awesome power.{1}{0}The Dwarf Lord of Zhufbar is host to the descendants of the lords of Karak Vlag, and shares their fears. Although the quenching of the ancient flames seems an act of unthinkable wrong, it is the only option available to prevent the creation of a greater evil.{1}{0}The exiled lords of Karak Vlag know that only the first item forged in the magical fires - a ring - can extinguish the flames. As the ring is an ancient Dwarf treasure, it must be hurled into the chasm by a Dwarf. If the Dwarf is killed, then the Warriors have, by default, failed.{1}{0}The Warriors must first defeat the guardians of the firechasm, as only then can the Dwarf hurl the ring into its depths. The ring in question is located on one of the claws of a dragon statue that decorates the firechasm.", _shortTab, vbNewLine)

            Case 4
                ThemeName = "Destroy the Bridge"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 50}}
                ObjectiveRoomExitAvailable = True
                InstantDeathCondition = True

                ThemeText = String.Format("{0}The Warriors are being pursued through the Worlds Edge Mountains, via tunnels deep below ground, by the inhabitants of the dark under-realms. With them, the Warriors have the long-lost crown of the ancient Dwarf Kings of Mount Silverspear (now known as Mount Grimfang), which has been retrieved from the evil creatures that stole it. The Warriors have a final obstacle to overcome before they reach safety. The dangerous route that they follow leads to the firechasm, across which lies a slender bridge. If they can cross the bridge and destroy it before their pursuers arrive in great numbers, they will gain precious time and will probably escape from the mountains alive. If not, they will surely perish as the evil hordes overwhelm them.", _shortTab)

            Case 5
                ThemeName = "Return the Dragon's Eye"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{3, 100}} 
                InstantDeathCondition = True

                ThemeText = String.Format("{0}Centuries ago, the great Dwarf hold of Karak Azgal fell to rampaging Orc hordes. In the last days before the city fell, the Dwarf smiths and forgemasters of the realm gathered together under their Lords’ directions.{1}{0}Their aim was to bind a dragon to the city to smite down its foes, and thus they built a great statue in a cavern far underground to act as a magical focus. The Dwarfs put a great deal of their power into their labours, and the majority of it went into the two great gems that served as the dragon’s eyes. A great dispute raged for years to decide who owned these precious gems, as two rival Dwarf Lords each claimed to be the rightful owner. The grudge went back and forth for many years, and so did the gems as they were wrested from one clan to the other. Placing them in the position of honour in the statue was seen as one way of settling the dispute forever.{1}{0}It was not to be, however, as one of the embittered Dwarfs crept into the chamber before the ceremony and stole one of the dragon’s eyes. Shortly after, Karak Azgal fell to the Orcs and the unbound dragon arrived. The Dwarfs made good their escape, leaving the once glorious city to the dark, brooding presence of the great beast and the Orc intruders.{1}{0}The dragon has since been slain by a great Dwarf hero, but the city itself has never been cleared of the Orcs and Goblins who now rule its gloomy caverns. The Dwarfs blame this misfortune on the theft of the gem, and legend tells that Karak Azgal is cursed unless the gem is replaced.{1}{0}Now the gem has been found, and the guardian and self appointed ruler-in-exile of the city has given the Warriors permission to try and return the stone, as long as they agree to give him half of whatever treasure they find on the way", _shortTab, vbNewLine)

            Case 6
                ThemeName = "Preserve the Fires"
                SpecialObjectiveRoomMonsters = True
                ObjectiveRoomExitAvailable = True
                ObjectiveRoomTimeLimit = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 50}}
                InstantDeathCondition = True

                ThemeText = String.Format("{0}The magical flames of the Dwarf temple, the Firechasm, are in danger of being extinguished by the foul Skaven who now occupy the ancient Dwarf city of Karak Azgal. They plan to fill the entire chasm with debris, hoping to stem the magma flow and cause a pressure build up deep underground. Even now, their engineers are channelling tunnels to send the diverted magma spurting into the areas of the city occupied by Orcs and other creatures, as well as hopefully burying the Dwarf fortress occupied by Kargun Skalfson that sits at the entrance to Karak Azgal.{1}{0}If the Skaven succeed, there is a good chance that the ancient Dwarf citadel will be sealed off forever, leaving them free to search for the lost Dwarf treasure hoards rumoured to lie in its deepest halls.{1}{0}Spies have reported this fiendish plan to the Emperor and his Dwarf allies, who are now mounting a frontal assault on Karak Azgal. In reality though, this is simply a cover. They know that the only hope of thwarting the Skaven’s plan lies with small bands of brave Warriors who must steal unseen into the heart of the Skaven area of the city, and kill the engineers who are setting the plot in motion.{1}{0}Other bands of Warriors will attempt to block the tunnels created by the Skaven to channel the magma. Your band of Warriors has been chosen to stop the damming of the firechasm itself.", _shortTab, vbNewLine)

        End Select

        ThemeNumber = roll

    End Sub

    Private Sub SetFountainOfLightThemeSpecifics()

        Dim roll As Short = AppConstants.D6Roll

        Select Case roll

            Case 1
                ThemeName = "Clearwater"
                DungeonRewardDiceGoldEach = New Short(,) {{1, 20}}
                ObjectiveRoomExitAvailable = True
                AfterMonsterClearTaskInObjectiveRoom = True

                ThemeText = String.Format("{0}In the south of the Empire lies Bugman’s Brewery, where the Dwarf brewers create the finest beers in the Warhammer World. Always striving for perfection in his brews, Bugman has heard of a dried-up fountain that used to be the source of the purest water in the world, and purer water makes better beer...{1}{0}The story is that a potion of dizzying power must be poured into the fountain - a whole barrelful - if the waters are ever to flow again. The only powerful dizzying potion available in barrels that Bugman can think of is a cask of his precious Bugman’s XXXXXX Superbrew. If only he could find the fountain and start it his good fortune would be ensured.{1}{0}The legend tells that the fountain lies in the caves of the Black Mountains, somewhere between Karak Hirn and Black Fire Pass. The Lord of Karak Hirn knows a cave system within the borders of his realm that fits the description, and has agreed to let four Warriors search for the fountain as long as he gets a free supply of the resulting beer.{1}{0}Of course, the cave system is not actually part of the city of Karak Him, more a long abandoned labyrinth now populated by all manner of evil beasts.", _shortTab, vbNewLine)

            Case 2
                ThemeName = "Skaven Curse!"
                SpecialObjectiveRoomMonsters = True
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 50}}
                InstantDeathCondition = True

                ThemeText = String.Format("{0}The water supply for the city of Miragliano comes from many sources. The main supply is from the rivers that run down from the Vaults, but the most precious comes from an ancient shrine hidden in a deep cave system, from which springs a gushing fountain. This fountain provides the purest water in Miragliano, and has done so for countless years.{1}{0}The Skaven of Skavenblight have found the fountain and polluted it, filling it with the twisting influence of warpstone. Already a sickness spreads in Miragliano, and a large reward has been offered to anyone who can find a cure.{1}{0}A far-seeing academic has guessed at the truth, and wishes to find out if the waters are indeed polluted. He has gathered your band of Warriors together to seek the source of the waters and, if needs be, cleanse it.", _shortTab, vbNewLine)

            Case 3
                ThemeName = "The Waters of Fate"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{2, 100}}

                ThemeText = String.Format("{0}The Emperor’s Wizards tell him that the mystical signs warn of an imminent invasion, but they can see no further than this, as dark powers cloud their vision. They have no idea if the assault will come from the Chaos Wastes of the far North, from the Orcs of the Dark Lands to the East, or from some other unsuspected quarter.{1}{0}The most aged Wizard Lord of the Celestial college suggests that the answer lies in a magical pool - the Fountain of Fate which holds the secrets of all things. While the Empire prepares all its borders for war, a party of four brave Warriors is gathered to search for the fountain, reputed to be found somewhere below the Middle Mountains", _shortTab, vbNewLine)

            Case 4
                ThemeName = "The Sword of True Kingship"
                StartOfQuestEvent = True
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardGoldEach = 500

                ThemeText = String.Format("{0}It is claimed that an ancient sword holds the secret of the kingship of one of the small realms of the Border Princes. When immersed in water of unparalleled purity, it is said that it reveals the name of the true king of the realm. Unfortunately, no water save that of the legendary Fountain of Light is pure enough to cause the sword to reveal the name. The four Warriors must therefore take the sword and journey to the Middle Mountains to find the fountain. Once there, they can determine which of the three princes who claim the kingship - Bardin, Rudin and Gredin - is the rightful heir.", _shortTab)

            Case 5
                ThemeName = "Nurgle's Rot"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardGoldEach = 100
                DungeonRewardUniqueGold = 500
                InstantDeathCondition = True

                ThemeText = String.Format("{0}The city of Praag, which lies close to the border of the Chaos Wastes, has been struck with the dreaded Nurgle’s Rot, a disease spread by the foul Power of pestilence and decay. The death toll is mounting, but the physicians in the city are powerless unless they can find a cure. There appears to be only one hope.{1}{0}In the ancient myths and songs of Kislev, a fountain is described that has waters so pure and so cold that any creature harbouring any evil nature is frozen to death as soon as it touches the waters. The doctors of Praag believe that this may provide a cure for the disease.{1}{0}The fountain is said to lie in the mountains north of the High Pass. The Warriors must seek it out and return with some of the precious liquid. They are given a special container in which to carry the water.", _shortTab, vbNewLine)

            Case 6
                ThemeName = "Fountain of Lost Souls"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{2, 50}}
                InstantDeathCondition = True

                ThemeText = String.Format("{0}A mighty Sorcerer, resident in Marienburg, wishes to find the Burning Fountain, a mythical place rumoured to exist somewhere in the caves below the Dragonback Mountains. Scrying its exact location has proven to be of no use, but he has managed to obtain a picture of the fountain itself in his sorcerous mirror, confirming that it does indeed lie somewhere under the mountains, and is guarded by ferocious monsters.{1}{0}No matter how much gold he offers, no one can be found to venture that far afield, so he has cunningly entrapped the four Warriors under a curse, capturing their souls in glowing gems. Using powerful magic, he has reached through his mirror and dropped these gems into the fountain.{1}{0}The Warriors have no choice but to find the fountain and retrieve their lost souls. The gems must be returned to the Sorcerer before he can reunite the Warriors’ ethereal bodies with their physical bodies. He is apologetic about this underhand trick, but does promise rich rewards if the Warriors succeed in capturing some of the waters in a specially prepared container while they are there.", _shortTab, vbNewLine)

        End Select

        ThemeNumber = roll

    End Sub

    Private Sub SetTombChamberThemeSpecifics()

        Dim roll As Short = AppConstants.D6Roll

        Select Case roll

            Case 1
                ThemeName = "Exorcism"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{2, 50}}

                ThemeText = String.Format("{0}Deep below Middenheim there is a maze of tunnels inhabited by all manner of evil creatures. No-one ventures into this dark realm, and the entrances in the city have been sealed for centuries. Now, however, an evil presence has been detected by the priests of Ulric, the holy leaders of the city.{1}{0}The source of this malign power is growing, and resides somewhere in the ancient catacombs below the city. The priests suspect it maybe the spirit of a long dead Necromancer, returned to wreak havoc once again on the inhabitants of Middenheim. Like moths to a candle, other malign and twisted creatures are being drawn to the tunnels below Middenheim by this evil presence.{1}{0}Carrying holy artefacts from the temples of the city, the Warriors must descend into the catacombs to exorcise the evil before its power grows too strong to contain.", _shortTab, vbNewLine)

            Case 2
                ThemeName = "The Sword of the Deathking"
                StartWithSwordOfDeathking = True
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 100}}
                InstantDeathCondition = True

                ThemeText = String.Format("{0}The Fortress of Vorag lies beyond the Badlands, on the Plain of Bone. It was from this proud, cruel citadel that Ashkral Deathking, a follower of the all-powerful Necromancer Nagash, ruled many centuries ago. Endless legions of the dead strode to battle at his command, and the living fell before their unearthly might.{1}{0}When Ashkral was overthrown by the Orc Warlord Morak Bloodcrusher, the dying Necromancer swore that he would one day return. His shattered body was taken by his acolytes to a secret place deep beneath Cripple Peak, on the shores of the Sour Sea. However, the Deathking was not truly dead, he was merely in a state of limbo between this life and the next. The only weapon said to be truly able to kill the Deathking was the sword he himself had wielded. This was to be buried with him so that it could not fulfil its destiny, and so that he could wield the powerful blade when he arose from beyond the grave.{1}{0}Unfortunately, on the way to his tomb, the acolytes carrying the sword were ambushed and killed. With his last burst of energy, before he passed over to meet his master, the head acolyte hurled the sword into the Sour Sea, screaming that it would never be seen again until the Deathking stirred once more.{1}{0}Since then, there have been great upheavals in the land, both politically and physically. The nearby volcano, Karag Haraz, has erupted many times in the years since the Deathking’s defeat, spewing lava and magma across the region and causing the earth to tremble and shift. Over the years the citadel has been reduced to rubble and the Deathking’s story has passed into legend.{1}{0}However, after the most recent eruption an ancient sword was thrown up onto the surface, and the entrance to a long sealed dungeon revealed. The myth of the Deathking, so long regarded as nothing more than a story, looked to be possible!{1}{0}The Warriors have been summoned to take the sword and enter the newly-opened dungeon, there to find and slay the Deathking once and for all before he rises from his grave.", _shortTab, vbNewLine)

            Case 3
                ThemeName = "Return the Crown"
                FirstDungeonRoomSpecialEvent = True
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardEachGainTreasure = True

                ThemeText = String.Format("{0}Between the Dwarf hold of Karak Izor and the Dwarf Sea Fortress of Barak Varr lies a small realm, a border principality known as Heldegrad. Normally allied to the cause of the Dwarfs, the rulers of this small state have been thrown into turmoil by the discovery of the ancient and long-lost tomb of their ancestor-Kings, renowned to contain the true crown of the realm. This labyrinthine burial ground lies near Karak Izor, and the king demands that the crown of his forefathers is returned to him by the Dwarfs or he will shut down all the trade routes from Barak Varr to Karak Izor. Not wishing to plunge the longstanding allies into bloodshed, and acknowledging the king’s right to the ancient crown, the Dwarf Lord of Karak Izor has allowed the Warriors to descend into the long-forgotten tunnels in search of the ancient relic.", _shortTab)

            Case 4
                ThemeName = "The Hero Awakens"
                StartWithShardOfGlass = True
                AfterMonsterClearTaskInObjectiveRoom = True
                ObjectiveRoomExitAvailable = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 50}}

                ThemeText = String.Format("{0}To the north of the Empire, bordering on the Northern Wastes and Troll Country, lies the frozen land of Kislev. Beset by the rampaging hordes of Chaos, Kislev is teetering on the brink of destruction, and its people are losing heart as they suffer defeat after defeat. To the south, their Empire allies are under attack from massed armies of Orcs and Goblins, and can send little aid. Kislev needs a hero to lead them out of this time of darkness, to bring fireback to cold hearts and determination to lift battered spirits.{1}{0}The Ice Queen of Kislev knows a legend of just such a hero, but he passed from the land centuries ago. Reputed to be a descendant of Sigmar himself, Heinrich Sigmasson led a glorious campaign against the Chaos hordes in years past, driving them back beyond the mountains of the Northern Wastes.{1}{0}At the final battle, however, he suffered a mortal wound, and was buried in a tomb somewhere in the far off mountains. But even on his death bed he promised to return if Kislev was once again threatened by the Chaos hordes. The Ice Queen has asked the Warriors to journey into the mountains and reawaken Heinrich so that he can keep his promise.", _shortTab, vbNewLine)

            Case 5
                ThemeName = "Destroy the Tomb"
                AfterMonsterClearTaskInObjectiveRoom = True
                ObjectiveRoomExitAvailable = True
                DungeonRewardEachGainTreasure = True

                ThemeText = String.Format("{0}The Dwarf Lords of Karak Azul have recently deciphered an ancient Dwarf scroll written in runes so old that even the Dwarfs have taken many years to identify their true meaning. Early on, the Dwarfs realised that it described a shrine of great magical powerlocated somewhere in the Worlds Edge Mountains, beneath the tomb of a mighty Warrior. The Dwarfs knew that to find the shrine would put them in control of the most powerful forces they could possibly unleash upon their foes. The exact location was a mystery until recently when, after many years of painstaking work, it was finally pinpointed. To the Dwarfs’ horror, they realised that the shrine was directly below the Orc Fortress of Iron Rock.{1}{0}The Dwarfs decided that the shrine had to be destroyed to prevent it falling into Orc hands. If the Orcs should find it, who knows what they would do? An attack by a large force would raise the Orcs’ suspicions about the Dwarfs’ motives, so the Dwarfs have asked the Warriors to sneak into the Orc stronghold to destroy the shrine.", _shortTab, vbNewLine)

            Case 6
                ThemeName = "Identify"
                SuppressEventsAfterObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 100}}

                ThemeText = String.Format("{0}The Warriors have been employed to carry out an apparently simple task, for which they will be well paid. All they have to do is solve an inheritance dispute between two Imperial Lords, by correctly identifying a body buried in a far away tomb in the Worlds Edge Mountains.", _shortTab)

        End Select

        ThemeNumber = roll

    End Sub

    Private Sub SetIdolChamberThemeSpecifics()

        Dim roll As Short = AppConstants.D6Roll

        Select Case roll

            Case 1
                ThemeName = "Sacrifice"
                ObjectiveRoomExitAvailable = True
                PrePowerPhaseCheck = True
                DungeonRewardDiceGoldEach = New Short(,) {{2, 50}}

                ThemeText = String.Format("{0}One of the Warriors’ kinsmen has been captured by Orcs, and even now he is being tortured in their lair. He is to be sacrificed to their foul gods unless the Warriors can rescue him.", _shortTab)

            Case 2
                ThemeName = "Desecration"
                AfterMonsterClearTaskInObjectiveRoom = True
                SuppressEventsAfterObjectiveRoom = True

                ThemeText = String.Format("{0}Deep in the ruined cities of the Dwarfs, now occupied by Orcs, Goblins and even worse creatures, many of the once noble temples and shrines have been defiled. In their place are crude altars set up by these evil creatures, dedicated to all manner of foul Gods. Apart from the obvious pleasure of killing the invaders of their ancestral homes, and hopefully recovering some of the long-lost treasures, the Dwarf Kings also pay a rich reward for every evil temple destroyed.{1}{0}The Warriors have been charged with the task of locating one of these temples that is reputed to lie deep below the ground in the ruins of Karak Azgal. Kargun Skalfson, deposed Lord of Karak Azgal, has allowed the Warriors into the ruins to search for the temple, and has waived his right to a share of any treasure they discover on the way - as long as they bring back evidence of the destruction of the temple.{1}{0}Secretly, Skalfson does not believe there is a temple, and therefore hopes to persuade the Warriors to venture into the most dangerous regions of Karak Azgal in search of it. If they survive these hazardous, long-unexplored regions, they will surely find a great deal of treasure - and as there is no temple, he will gain his share of the treasure as usual.", _shortTab, vbNewLine)

            Case 3
                ThemeName = "Kill the Shaman"
                SpecialObjectiveRoomMonsters = True
                ObjectiveRoomExitAvailable = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 50}}

                ThemeText = String.Format("{0}A powerful Goblin Shaman is foretelling of a great Waaagh to come soon, when the Goblins and Orcs will sweep out of the Dark Lands and overthrow the Empire. Although not very powerful at the moment, his cult is growing stronger and unrest is beginning to stir.{1}{0}So as not to raise suspicions and warn him of his intentions, the Emperor has decreed that the best way to solve the crisis is to assassinate the Shaman. The Warriors have been chosen to venture into the Shaman’s lair below Mount Gunbad, on the far side of the Worlds Edge Mountains, and kill him.", _shortTab, vbNewLine)

            Case 4
                ThemeName = "Daemon Summoning"
                SpecialObjectiveRoomMonsters = True
                ObjectiveRoomTimeLimit = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 150}}
                ObjectiveRoomExitAvailable = True

                ThemeText = String.Format("{0}The Middle Mountains lie deep within the forests of the Empire, and are a wild and dangerous place. Although the Orcs, Goblins and other evil creatures that live in the mountain caves are a great hazard to travellers, in the past they have not been considered to be numerous or organised enough to threaten the security of the Empire itself.{1}{0}Now, however, a threat from one of their number has arisen, and must be eradicated quickly, or all manner of disasters will befall the Empire. A Skaven Warlord has discovered an ancient temple deep below the mountains, and within it a lifelike effigy of a mighty daemon that could summon the beast itself.{1}{0}The Skaven Warlord and his minions are doing their utmost to summon the daemon, believing they can bind it to do their will using braziers of burning warpstone.{1}{0}The Empire’s Battle Wizards have scried something of this threat, and the Warriors have been dispatched with great haste to prevent the daemon being summoned.{1}{0}To stop the Skaven’s evil work, the Wizard has been given a Scroll of Banishment by the head Wizards of the Empire. This ancient parchment must be guarded well, for it is the only thing that can stop the daemon being summoned.", _shortTab, vbNewLine)

            Case 5
                ThemeName = "Return the Staff"
                SpecialObjectiveRoomMonsters = True
                SuppressEventsAfterObjectiveRoom = True
                DungeonRewardEachGainTreasure = True

                ThemeText = String.Format("{0}As a final test of their courage and bravery before being accepted into the official Warriors’ Guild of Bretonnia, the Warriors must fulfil a challenging task. They must descend into the labyrinthine tunnels of the Cursed Pit, which lies below Cripple Peak near the Dark Lands, and place a staff in the hand of an idol hidden deep underground. The staff has magical properties, and if left anywhere other than in the hand of the idol, it will eventually return to the throne room of Bretonnia", _shortTab)

            Case 6
                ThemeName = "Sword of the Electors"
                AfterMonsterClearTaskInObjectiveRoom = True
                DungeonRewardDiceGoldEach = New Short(,) {{1, 50}}

                ThemeText = String.Format("{0}One of the long-lost swords of the Elector Counts of the Empire, missing for centuries, has been found by a band of warriors in the Worlds Edge Mountains, near the Dwarf Hold of Mount Grimfang. Unfortunately, before they could return the blade to safety, all but one of the warriors were killed. The one warrior who survived, although tortured and badly mutilated, managed to escape and get back to the Emperor to tell his story.{1}{0}The Warriors have been requested to seek out this extremely important sword and return it", _shortTab, vbNewLine)

        End Select

        ThemeNumber = roll

    End Sub

End Class
